home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt3sp4.arc / TOGGLEOP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-16  |  856 b   |  32 lines
  1. (*----------------------------------------------------------------------*)
  2. (*             Toggle_Option -- Toggle an option on or off              *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Toggle_Option( Option_Name : AnyStr; VAR Option_Flag : BOOLEAN );
  6.  
  7. BEGIN (* Toggle_Option *)
  8.  
  9.    Option_Flag := NOT Option_Flag;
  10.  
  11.    Save_Screen( Saved_Screen );
  12.    Draw_Menu_Frame( 10, 10, 55, 15, Menu_Frame_Color,
  13.                     Menu_Text_Color, '' );
  14.  
  15.    IF Option_Flag THEN
  16.       BEGIN
  17.          WRITELN;
  18.          WRITELN('*** ',Option_Name,' now ON');
  19.       END
  20.    ELSE
  21.       BEGIN
  22.          WRITELN;
  23.          WRITELN('*** ',Option_Name,' now OFF');
  24.       END;
  25.  
  26.    DELAY( Two_Second_Delay );
  27.  
  28.    Restore_Screen( Saved_Screen );
  29.    Reset_Global_Colors;
  30.  
  31. END   (* Toggle_Option *);
  32.